home *** CD-ROM | disk | FTP | other *** search
/ Ford Galaxy MK1 Restyling Interactive Presentation / Ford Galaxy.iso / Design.dxr / 00050.ls < prev    next >
Encoding:
Text File  |  2001-02-15  |  633 b   |  28 lines
  1. on exitFrame me
  2.   if not soundBusy(2) then
  3.     suona("tecnico1")
  4.   end if
  5.   if not soundBusy(1) then
  6.     if sprite(60).rect = rect(0, 0, 800, 600) then
  7.       me.mouseDown()
  8.     end if
  9.   end if
  10.   scrollAutomatico(member(the member of sprite 52))
  11.   go(the frame)
  12. end
  13.  
  14. on mouseDown me
  15.   global gAllowRollover
  16.   if sprite(60).rect = rect(0, 0, 800, 600) then
  17.     sprite(60).rect = rect(-1, -1, -1, -1)
  18.     repeat with i = 61 to 80
  19.       if (sprite(i).type <> 0) and sprite(i).visible then
  20.         sprite(i).locZ = i
  21.         sprite(i).mZoomActivate("Out")
  22.       end if
  23.     end repeat
  24.   end if
  25.   puppetSound(1, 0)
  26.   gAllowRollover = 1
  27. end
  28.